   5 B=0
  10 :RETURN ;CLEAR ;PRINT "I AM A MAN. IF LARRY'S SONIS MY SON'S FATHER, WHAT
  20 PRINT "RELATIONSHIP AM I TO      LARRY?
  30 PRINT "(1) HIS GRANDFATHER
  40 PRINT "(2) HIS FATHER
  50 PRINT "(3) HIS SON
  60 PRINT "(4) HIS GRANDSON
  70 PRINT "(5) I AM LARRY
  80 PRINT "(6) HIS UNCLE
  90 IF KP=51GOSUB 1000;GOTO 110
 100 GOSUB 2000;PRINT "#",;TV=51;GOSUB 1010
 110 PRINT "WHICH WORD DOES NOT BELONGIN THE FOLLOWING GROUP?
 120 PRINT "(1) KNIFE
 130 PRINT "(2) SWAN
 140 PRINT "(3) SMILE
 150 PRINT "(4) FEATHER
 160 PRINT "(5) LOVELY
 170 PRINT "(6) THOUGHT
 180 IF KP=53GOSUB 1000;GOTO 200
 190 GOSUB 2000;PRINT "#",;TV=53;GOSUB 1010
 200 PRINT "WHAT NUMBER COMES NEXT IN THIS SERIES?
 210 PRINT "9, 16, 25, 36,...
 220 IF KP=52IF KP=57GOSUB 1000;GOTO 240
 230 GOSUB 2000;TV=52;TV=57;GOSUB 1010
 240 PRINT "COMPLETE THIS ANALOGY WITHA FIVE LETTER WORD ENDING WITH THE LETTER 'H'.
 250 PRINT "HIGH IS TO LOW AS SKY IS  TO  ....H.
 260 IF KP=69IF KP=65IF KP=82IF KP=84GOSUB 1000;GOTO 280
 270 GOSUB 2000;PRINT ;TV=69;TV=65;TV=82;TV=84;TV=72;GOSUB 1010
 280 PRINT "IN THE BOX BELOW, A RULE  OF ARITHMETIC APPLIES     ACROSS AND DOWN THE BOX SO
 290 PRINT "THAT TWO OF THE NUMBERS INA LINE PRODUCE THE THIRD.
 300 PRINT "WHAT IS THE MIDDLE NUMBER?
 310 PRINT ;M=6;N=2;O=4;P=0;PRINT M,#4,N,O
 320 PRINT N,"   ?",#4,P
 330 PRINT O,#4,P,O
 340 BOX -11,-25,63,29,3;BOX -11,-25,61,27,3
 350 IF KP=50GOSUB 1000;GOTO 370
 360 GOSUB 2000;TV=50;GOSUB 1010
 370 PRINT "COMPLETE THIS ANALOGY WITHA SEVEN LETTER WORD ENDING
 380 PRINT "WITH THE LETTER 'T'.
 390 PRINT "POTENTIAL IS TO ACTUAL AS FUTURE IS TO ......T.
 400 IF KP=80IF KP=82IF KP=69IF KP=83IF KP=69IF KP=78GOSUB 1000;GOTO 420
 410 GOSUB 2000;PRINT ;TV=80;TV=82;TV=69;TV=83;TV=69;TV=78;TV=84;GOSUB 1010
 420 PRINT "IN THE GROUP BELOW, FIND  THE TWO WORDS WHOSE
 430 PRINT "MEANINGS DO NOT BELONG    WITH THE OTHERS.
 440 PRINT "(1) GLUE
 450 PRINT "(2) SIEVE
 460 PRINT "(3) BUZZ SAW
 470 PRINT "(4) NAIL
 480 PRINT "(5) STRING
 490 PRINT "(6) PAPER CLIP
 500 IF KP=50IF KP=51GOSUB 1000;GOTO 520
 510 GOSUB 2000;PRINT "#",;TV=50;PRINT " & #",;TV=51;GOSUB 1010
 520 PRINT "FIND THE NUMBER THAT COMP-LETES THE SERIES:
 530 PRINT "2, 3, 5, 9, 17,...
 540 IF KP=51IF KP=51GOSUB 1000;GOTO 560
 550 GOSUB 2000;TV=51;TV=51;GOSUB 1010
 560 PRINT #1,B," CORRECT OUT OF 8!";STOP
1000 B=B+1;PRINT "CORRECT!
1010 FOR Z=1TO 2000;NEXT Z;CLEAR ;RETURN 
2000 PRINT "THE CORRECT ANSWER IS ",;RETURN 
RUN 
